home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_PRO / DS-2.ZIP;1 / TESTS.ZIP / VAR.ICN < prev   
Encoding:
Text File  |  1992-02-10  |  650 b   |  29 lines
  1. procedure main(a)
  2.    local x
  3.    static y
  4.    variable("a") := 1
  5.    variable("x") := 2
  6.    variable("y") := 3
  7.    if variable("z") then write("oops")
  8.    main2()
  9. end
  10.  
  11. record complex(r,i)
  12.  
  13. procedure main2(a)
  14.    static s
  15.    every write(image(name(main | T | L | s | a)))
  16.    T := table()
  17.    L := list(200)
  18.    L1 := []
  19.    every 1 to 200 do push(L1,1)
  20.    write(image(L[10]))
  21.    write(image(name(&error)))
  22.    write(image(name(T["abc"])))
  23.    T["abc"] := 1
  24.    write(image(name(T["abc"])))
  25.    every write(image(name(L[1 | 2 | 3 | -1 | -10])))
  26.    every write(image(name(L1[1 | 2 | 3 | -1 | -10])))
  27.    write(image(name(complex().r)))
  28. end
  29.